home *** CD-ROM | disk | FTP | other *** search
- object SynthEditorForm: TSynthEditorForm
- Left = 206
- Top = 117
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'SynthForm'
- ClientHeight = 219
- ClientWidth = 241
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poDefault
- Scaled = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object SynthPanel: TWPControl
- Left = 0
- Top = 0
- Width = 241
- Height = 219
- Align = alClient
- Color = clGray
- ParentColor = False
- ParentShowHint = True
- object PatchNameSelect: TQuickCombo
- Tag = -1
- Left = 87
- Top = 36
- Width = 147
- Height = 16
- Cursor = crHandPoint
- Hint = '|General MIDI name for current patch'
- ParentFont = False
- ParentColor = False
- Color = 5462613
- Font.Charset = ANSI_CHARSET
- Font.Color = 12895672
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = [fsBold]
- Caption = 'test'
- Options = [tbOnOver, tbHasDownGlyph, tbTrashGlyph, tbAutoSize, tbDownArrow]
- Style = FS_Glass
- Spacing = 4
- TextAlign = ttaLeft
- AccelKey = 0
- Glyph.ILCount = 2
- OnChange = PatchNameSelectChange
- PopupAlign = Popup_Normal
- end
- object ResetBtn: TQuickBtn
- Tag = -1
- Left = 5
- Top = 196
- Width = 41
- Height = 23
- Cursor = crHandPoint
- Hint = '|Reset all controllers (CC #121)'
- ParentFont = False
- ParentColor = False
- Color = clGray
- Font.Charset = ANSI_CHARSET
- Font.Color = 10085621
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- Options = [tbShowPressed, tbHasDownGlyph]
- AccelKey = 0
- Glyph.ILCount = 2
- BmpList = SynthResModule.ResetBtnIL
- OnClick = ResetBtnClick
- StayDown = False
- end
- object PageSelect: TQuickCombo
- Tag = -1
- Left = 8
- Top = 73
- Width = 226
- Height = 16
- Cursor = crHandPoint
- Hint = '|^dPage of controllers'
- ParentFont = False
- ParentColor = False
- Color = 5462613
- Font.Charset = ANSI_CHARSET
- Font.Color = 12895672
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = [fsBold]
- Options = [tbOnOver, tbHasDownGlyph, tbTrashGlyph, tbAutoSize, tbDownArrow, tbCanEdit]
- Style = FS_Glass
- Spacing = 4
- TextAlign = ttaLeft
- AccelKey = 0
- Glyph.ILCount = 2
- OnAcceptEdit = PageSelectAcceptEdit
- OnChange = PageSelectChange
- PopupAlign = Popup_Normal
- end
- object QuickLabel6: TQuickLabel
- Tag = 8
- Left = 146
- Top = 174
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object QuickLabel7: TQuickLabel
- Tag = 9
- Left = 192
- Top = 174
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object QuickLabel5: TQuickLabel
- Tag = 7
- Left = 100
- Top = 174
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object QuickLabel4: TQuickLabel
- Tag = 6
- Left = 54
- Top = 174
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object QuickLabel3: TQuickLabel
- Tag = 5
- Left = 8
- Top = 174
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object QuickLabel2: TQuickLabel
- Tag = 4
- Left = 146
- Top = 126
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object QuickLabel1: TQuickLabel
- Tag = 3
- Left = 100
- Top = 126
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object CtrlLabel2: TQuickLabel
- Tag = 2
- Left = 54
- Top = 126
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object CtrlLabel1: TQuickLabel
- Tag = 1
- Left = 8
- Top = 126
- Width = 43
- Height = 11
- Cursor = crHandPoint
- Options = [loTransparent, loNoFlicker, loEndEllipsis, loHCenter]
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 12895676
- Font.Height = -9
- Font.Name = 'Fruity fonts'
- Font.Style = []
- ParentFont = False
- OnMouseDown = QuickLabel3MouseDown
- end
- object CtrlSelect1: TWAVWheel
- Tag = 1
- Left = 21
- Top = 103
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object CtrlSelect2: TWAVWheel
- Tag = 2
- Left = 67
- Top = 103
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object WAVWheel1: TWAVWheel
- Tag = 3
- Left = 113
- Top = 103
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object WAVWheel2: TWAVWheel
- Tag = 4
- Left = 159
- Top = 103
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object WAVWheel3: TWAVWheel
- Tag = 5
- Left = 21
- Top = 151
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object WAVWheel4: TWAVWheel
- Tag = 6
- Left = 67
- Top = 151
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object WAVWheel5: TWAVWheel
- Tag = 7
- Left = 113
- Top = 151
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object WAVWheel6: TWAVWheel
- Tag = 8
- Left = 159
- Top = 151
- Width = 15
- Height = 15
- Options = []
- MoveSpeed = 16
- SlowMotionDiv = 8
- Max = 127
- DefaultValue = 0
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 9
- HotSideY = 9
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.MainWheelIL
- end
- object BankLSBSelect: TDigiWheel
- Tag = -1
- Left = 145
- Top = 11
- Width = 25
- Height = 16
- Cursor = crSizeNS
- Hint = '|Fine bank number (CC #32)'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 8
- SlowMotionDiv = 4
- Min = -1
- Max = 127
- Value = -1
- DefaultValue = -1
- OnRelease = BankMSBSelectRelease
- MouseButton = mbLeft
- HotSideX = 3
- HotSideY = 4
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- end
- object BankMSBSelect: TDigiWheel
- Tag = -1
- Left = 115
- Top = 11
- Width = 25
- Height = 16
- Cursor = crSizeNS
- Hint = '|Coarse bank number (CC #0)'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 8
- SlowMotionDiv = 4
- Min = -1
- Max = 127
- Value = -1
- DefaultValue = -1
- OnRelease = BankMSBSelectRelease
- MouseButton = mbLeft
- HotSideX = 3
- HotSideY = 4
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- end
- object ChanSelect: TDigiWheel
- Tag = -1
- Left = 57
- Top = 11
- Width = 18
- Height = 16
- Cursor = crSizeNS
- Hint = '|MIDI channel number'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 2
- SlowMotionDiv = 4
- Min = 1
- Max = 16
- Value = 10
- DefaultValue = 10
- OnChange = ChanSelectChange
- OnRelease = ChanSelectRelease
- MouseButton = mbLeft
- HotSideX = 3
- HotSideY = 4
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- NumDigits = 2
- end
- object PatchSelect: TDigiWheel
- Left = 57
- Top = 36
- Width = 25
- Height = 16
- Cursor = crSizeNS
- Hint = '|^b^aPatch number'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 6
- SlowMotionDiv = 4
- Max = 128
- DefaultValue = 0
- OnChange = PatchSelectChange
- MouseButton = mbLeft
- HotSideX = 3
- HotSideY = 4
- PopupMenu = SynthResModule.WheelMenu
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- NullValue = 0
- end
- object PortSelect: TDigiWheel
- Tag = -1
- Left = 209
- Top = 11
- Width = 25
- Height = 16
- Cursor = crSizeNS
- Hint = '|Output port number'
- Options = [wwAutoSize, wwIncMode]
- MoveSpeed = 2
- SlowMotionDiv = 4
- Max = 255
- DefaultValue = 0
- OnChange = PortSelectChange
- OnRelease = BankMSBSelectRelease
- MouseButton = mbLeft
- HotSideX = 3
- HotSideY = 4
- Color = clNone
- Font.Charset = ANSI_CHARSET
- Font.Color = 13025463
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- BmpList = SynthResModule.Digits11IL
- end
- object CtrlSlider: TQuickSlider
- Tag = 9
- Left = 204
- Top = 95
- Width = 18
- Height = 77
- Cursor = crHandPoint
- SlowMotionDiv = 4
- Max = 160
- OnChange = WheelChange
- MouseButton = mbLeft
- HotSideX = 3
- PopupMenu = SynthResModule.WheelMenu
- BmpList = SynthResModule.VSliderIL
- end
- end
- end
-